home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iichkuser.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  1007 b   |  43 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <%
  6. ' Get these values before we include our strings so that the
  7. ' error messages can be built.
  8. Dim domain, uname
  9.  
  10. uname=Request.QueryString("uname")
  11. domain=Request.QueryString("domain")
  12. %>
  13.  
  14. <!--#include file="iichkuser.str"-->
  15.     
  16. <%
  17. Dim failed, NTDomain, NTUser, errmsg
  18.  
  19. failed = false
  20. On Error Resume Next
  21. Response.write domain & "/" & uname 
  22. Set NTDomain=GetObject("WinNT:" & L_SLASH_TEXT & L_SLASH_TEXT & domain)
  23. failed =  (err <> 0)    
  24. errmsg = L_DOMAIN_NOT_EXIST 
  25.  
  26. if not failed then
  27.     Set NTUser=GetObject("WinNT:" & L_SLASH_TEXT & L_SLASH_TEXT & domain & L_SLASH_TEXT & uname)
  28.     failed =  (err <> 0)    
  29.     errmsg = L_USER_NOT_EXIST
  30. end if
  31. Response.write err 
  32. %>
  33.  
  34. <SCRIPT LANGUAGE="JavaScript">
  35.     <% if failed then %>
  36.             alert("<%= errmsg %>");
  37.     <% else %>
  38.             top.body.main.head.listFunc.addUser("<%= domain & L_BCKSLASH_TEXT & uname %>");
  39.     <% end if %>
  40. </SCRIPT>
  41.  
  42. <HTML>
  43. </HTML>